DECLARE SUB HitAnyKey ()

SUB Credits

  CLS
  COLOR 11, 0, 9
  LOCATE 2, 35: PRINT "CREDITS:"
  LOCATE 4, 3: PRINT "Idea Conception: "
  COLOR 15, 0, 9
  LOCATE 4, 20: PRINT "Chris Kugler"
  COLOR 11, 0, 9
  LOCATE 6, 7: PRINT "Programming: "
  COLOR 15, 0, 9
  LOCATE 6, 20: PRINT "Chris Kugler"
  COLOR 11, 0, 9
  LOCATE 8, 6: PRINT "Play Testing: "
  COLOR 15, 0, 9
  LOCATE 8, 20: PRINT "Chris Kugler"
  LOCATE 9, 20: PRINT "Stuart Jansen"
  LOCATE 10, 20: PRINT "Dave Fagerstrom"
  COLOR 11, 0, 9
  LOCATE 12, 5: PRINT "Moral Support: "
  COLOR 15, 0, 9
  LOCATE 12, 20: PRINT "William Gibson"
  LOCATE 13, 20: PRINT "Dilbert"
  COLOR 11, 0, 9
  LOCATE 15, 6: PRINT "Offical Song: "
  COLOR 15, 0, 9
  LOCATE 15, 20: PRINT "'Blood & Fire' by Type O Negative"
  COLOR 11, 0, 9
  LOCATE 17, 1: PRINT "Special Thanks To: ";
  COLOR 15, 0, 9
  HitAnyKey
  COLOR 7, 0, 8

END SUB

